
FOR FIRST _File EXCLUSIVE-LOCK WHERE _File-Name = "ro_det" :

    _Frozen = NO. 

    IF NOT CAN-FIND( FIRST _File-Trig WHERE _File-Recid = RECID(_File) AND _Event = "WRITE") THEN DO:
        CREATE _File-Trig.
        ASSIGN
            _File-Recid = RECID(_File)
            _Event = "WRITE"
            _Proc-Name = "row.t"
            _Override = NO
            _Trig-Crc = ?
            .
    END.

    IF NOT CAN-FIND( FIRST _File-Trig WHERE _File-Recid = RECID(_File) AND _Event = "DELETE") THEN DO:
        CREATE _File-Trig.
        ASSIGN
            _File-Recid = RECID(_File)
            _Event = "DELETE"
            _Proc-Name = "rod.t"
            _Override = NO
            _Trig-Crc = ?
            .
    END.

    _Frozen = YES.

END.
